home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / dc25h-3.zip / DEMO2E.SUB < prev    next >
Text File  |  1990-01-31  |  811b  |  39 lines
  1. ; DEMO2E.SUB, Copyright (c) 1990, Dan Hudgins, All rights reserved.
  2.  
  3. NAME 1 = PIX\DEMO2AFR 0
  4.  
  5. LET |FRAMES = 1
  6. :FIRST_ANIMATION
  7. GRAPH_MODE B&W
  8.  
  9. # 1 Display 0 -18 0 -4000 .88 1 -320 0
  10. # 2 Display 0 -18 0 -4000 .88 1 -320 0
  11. # 3 Display 0  0  0 -1E18  1  1    0 0
  12. # 4 Display 0  0  0 -1E18  1  1    0 0
  13.  
  14. SAVE PIXEL NAME 1 NEXT
  15.  
  16. LOCATE 2 2 OUTPUT |FRAMES ECHO  frames down, %%
  17. OUTPUT [ 20 - |FRAMES ]   ECHO  to go.
  18. LET |FRAMES = [ |FRAMES + 1 ]
  19.  
  20. # 1 ROTATE C 0 0  2.25
  21. # 2 ROTATE C 0 0 -1.125
  22. LOOP :FIRST_ANIMATION 19
  23.  
  24. RELEASE |FRAMES
  25.  
  26. BEEP ; so you can know when it is done
  27. LOCATE 2 2 ECHO Press [Return] to start.
  28. WAIT
  29.  
  30. LET |FNAME  =  1 ; pass ordinal value for frame set name
  31.  
  32. RUN DEMO2A.SUB ; call subroutine
  33.  
  34. RELEASE |FNAME
  35.  
  36. ; End Show Gears Pair Moving
  37.  
  38. ; END
  39.